home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Tools 4
/
Amiga Tools 4.iso
/
text+faqs
/
france.guide_v1.3
/
install.script
< prev
next >
Wrap
Text File
|
1994-12-03
|
7KB
|
172 lines
; $VER: Install_France.guide 1.0 (29.11.94) écrit par Gérard Cornu ;-) pour Saint Jérôme le Gueux.
;
(set MSG_README "Lise_&_Moi")
(set MSG_BAD_KICK "%s nécessite au minimum le système 2.0\n(3.x de préférence !)")
(set MSG_NOT_3.0 (cat "Il semblerait que votre machine n'utilise pas le"
" système 3.x. %s peut fonctionner sur"
" votre système, mais vous ne pourrez pas afficher les"
" cartes directement depuis %s.\n\n"
" Cliquez sur \"Aide...\" pour les modifications"
" à apporter de façon à voir les cartes comme sous"
" le système 3.x, (ou presque ;-)"))
(set MSG_HELP_NOT_3.0 (cat "Il suffit simplement de remplacer, dans le fichier"
" France.guide, les\n\n"
" LINK Cartes/....iff/MAIN}\n\n"
"par des\n\n"
" SYSTEM \"PPShow Cartes/....iff\"}\n\n"
"Vous pouvez évidemment remplacer PPShow par votre"
" Viewer d'images préféré. Notez que les guillemets ont leur importance.\n\n"
"Deux chercher/remplacer"
" dans votre éditeur de texte y parviendront:\n\n"
"Chercher:\n\n"
"LINK Cartes/\n\n"
"Remplacer par:\n\n"
"SYSTEM \"PPShow Cartes/\n\n"
"Puis, chercher:\n\n"
".iff/MAIN}\n\n"
"et remplacer par:\n\n"
".iff\"}\n\n"
"Encore une fois les \" ne sont pas là uniquement pour décorer ;-).\n\n"
"Le répertoire qui contient l'afficheur d'images,\n"
"PPShow dans notre exemple, doit bien sûr être\n"
"dans votre chemin de commandes (\"Path\")."))
(set MSG_DESTINATION (cat "Où désirez-vous installer l'ensemble %s ?\n"
"Un répertoire \"France\" y sera créé, et l'ensemble"
" des fichiers de %s sera copié dans ce répertoire \"France\"."))
(set MSG_FONT (cat "\n\n\n%s est fournie avec une font, Helvetica en 9 points,"
" optimisée par mes soins. Voulez-vous la copier dans"
" votre répertoire \"Fonts:\"?"))
(set MSG_HELP_FONT (cat "Pour un confort optimal, votre écran doit être au"
" minimum en 640x512 4 Couleurs.\n\n"
"La police de caractère fournie (Helvetica 9) est parfaite"
" pour un écran 17 pouces ou supérieur."))
(set MSG_FIXFONTS "\"Sys:System/FixFonts\" est en train de mettre à jour votre répertoire \"Fonts:\"")
(set MSG_PATH (cat "Afin que %s fonctionne correctement (par exemple depuis ToolManager),"
" il est nécessaire que le chemin où vous venez d'installer %s soit"
" inclus dans la variable d'environnement système \"AmigaGuide/path\".\n\n"
"Voulez-vous que je modifie (ou crée, si nécessaire)"
" cette variable d'environnement ?"))
(set MSG_HELP_PATH (cat "Si vous choisissez de \"Passer cette partie\", il vous faudra le"
" faire manuellement. Pour plus d'infos sur cette variable"
" d'environnement, cliquez sur le bouton \"Aide\""
" lorsque vous êtes dans AmigaGuide (ou Multiview)."))
(set MSG_APPENDING_PATH (cat "Mise à jour de votre variable d'environnement"
" \"ENV:AmigaGuide/Path\" et copie dans \"ENVARC:AmigaGuide/Path\"."))
(set MSG_THANKS "\n\n\nMerci d'avoir installé %s!")
;------------------------------------------------------------------------------
; Choose default tool for guide, depending on user's OS version
(set osversion (/ (getversion) 65536))
(if (>= osversion 39)
(set guide_reader "MultiView")
(set guide_reader "AmigaGuide")
)
(set installed "")
(if (< osversion 37)
(abort (MSG_BAD_KICK @app-name))
)
(if (< osversion 39)
(message (MSG_NOT_3.0 @app-name @app-name) (help MSG_HELP_NOT_3.0))
)
(set dest_dir
(askdir (prompt (MSG_DESTINATION @app-name @app-name))
(help @askdir-help)
(default "Help:")
(newpath)
)
)
(set @default-dest (tackon dest_dir "France"))
(copyfiles (source "France")
(dest @default-dest)
(infos)
(all)
)
(copyfiles (source MSG_README)
(dest @default-dest)
(infos)
(files)
)
(set installed "YES")
(set font
(askbool (prompt (MSG_FONT @app-name))
(help MSG_HELP_FONT)
(choices "Copier la font" "Passer cette partie")
)
)
(if (= font 1)
(
(copyfiles (source "fonts")
(dest "Fonts:")
(all)
)
(if (exists "Sys:System/FixFonts" (noreq))
(
(working MSG_FIXFONTS)
(run "Sys:System/FixFonts")
)
)
)
)
(set dopath
(askbool (prompt (MSG_PATH @app-name @app-name))
(help MSG_HELP_PATH)
(choices "Oui" "Passer cette partie")
)
)
(if (= 1 dopath)
(
(working MSG_APPENDING_PATH)
(if (exists "ENV:AmigaGuide/Path" (noreq))
(textfile (dest "ENV:AmigaGuide/Path")
(append (getenv "AmigaGuide/Path"))
(append (cat "\n" @default-dest))
)
(textfile (dest "ENV:AmigaGuide/Path")
(append @default-dest)
)
)
(copyfiles (source "ENV:AmigaGuide/Path")
(dest "ENVARC:AmigaGuide")
(files)
(nogauge)
)
)
)
(if (exists (tackon @default-dest "France.guide.info") (noreq))
(
(tooltype (dest (tackon @default-dest "France.guide"))
(noposition) (setdefaulttool guide_reader))
(set installed "YES")
)
)
(if (= installed "YES")
(exit (MSG_THANKS @app-name))
(exit)
)